home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / calvinintro.lha / CALVIN.INTRO.SOURCE.V2 < prev    next >
Encoding:
Text File  |  1989-12-25  |  12.1 KB  |  611 lines
  1.  
  2.     SECTION    MadDoctorStrange,Code_C
  3.     OPT    C-,W+,O+
  4.  
  5.     JMP    LETS.GO.FOR.IT
  6.  
  7.     INCLUDE    "INCLUDE/HARDWARE/CUSTOM.I"
  8.     INCLUDE    "INCLUDE/EXEC/EXEC_LIB.I"
  9.     INCLUDE    "MAHONEY&KAKTUS"
  10.  
  11.     EVEN
  12. LETS.GO.FOR.IT:
  13.     MOVE.L    4,A6
  14.     JSR    _LVOFORBID(A6)
  15.  
  16.     MOVE.L    4,A6
  17.     CLR.L    D0
  18.     LEA    GFXPOINTER,A1
  19.     JSR    _LVOOPENLIBRARY(A6)
  20.     MOVE.L    D0,A1
  21.     MOVE.L    38(A1),OLD.CLIST
  22.     MOVE.L    4,A6
  23.     JSR    _LVOCLOSELIBRARY(A6)
  24.  
  25.     MOVE.L    #CLIST,$DFF080
  26.  
  27.     JSR    MT_INIT
  28.  
  29.     MOVE.L    #PICCY-2-(44*16),D0
  30.     MOVE.W    D0,PL2L
  31.     SWAP    D0
  32.     MOVE.W    D0,PL2H
  33.  
  34.     MOVE.L    #PICCY+((290*44)*1)-2-(44*16),D0
  35.     MOVE.W    D0,PL4L
  36.     SWAP    D0
  37.     MOVE.W    D0,PL4H
  38.  
  39.     MOVE.L    #PICCY+((290*44)*2)-2-(44*16),D0
  40.     MOVE.W    D0,PL6L
  41.     SWAP    D0
  42.     MOVE.W    D0,PL6H
  43.  
  44.     MOVE.L    #BLANK.PLANE,D0
  45.     MOVE.W    D0,PL1L
  46.     SWAP    D0
  47.     MOVE.W    D0,PL1H
  48.  
  49.     MOVE.L    #BLANK.PLANE,D0
  50.     MOVE.W    D0,PL3L
  51.     SWAP    D0
  52.     MOVE.W    D0,PL3H
  53.  
  54.     MOVE.L    #BLANK.PLANE,D0
  55.     MOVE.W    D0,PL5L
  56.     SWAP    D0
  57.     MOVE.W    D0,PL5H
  58.  
  59.     MOVE.L    #SPRITE1,D0
  60.     MOVE.W    D0,SPR1L
  61.     SWAP    D0
  62.     MOVE.W    D0,SPR1H
  63.  
  64.     MOVE.L    #SPRITE2,D0
  65.     MOVE.W    D0,SPR2L
  66.     SWAP    D0
  67.     MOVE.W    D0,SPR2H
  68.  
  69.     MOVE.L    #PICCY+(3*(290*44)),A0
  70.     MOVE.L    #COLS+2+(8*4),A1
  71.  
  72.     REPT    8
  73.     MOVE.W    (A0)+,(A1)
  74.     ADD.L    #4,A1
  75.     ENDR    
  76.  
  77.     BSET    #1,$BFE001
  78.  
  79. ;------------------------------------------------------------------
  80.  
  81.     JSR    MAIN.BIT
  82.  
  83. ;------------------------------------------------------------------
  84.  
  85.     JSR    MT_END
  86.  
  87.     MOVE.L    OLD.CLIST,$DFF080
  88.  
  89.     MOVE.L    #0,A0
  90.     MOVE.L    #0,A1
  91.     MOVE.L    #0,A2
  92.     MOVE.L    #0,A3
  93.     MOVE.L    #0,A4
  94.     MOVE.L    #0,A5
  95.     MOVE.L    #0,A6
  96.  
  97.     MOVE.L    4,A6
  98.     JSR    _LVOPERMIT(A6)
  99.  
  100.     CLR.L    D0
  101.     CLR.L    D1
  102.     RTS
  103.  
  104. ;------------------------------------------------------------------
  105.  
  106. MAIN.BIT:
  107.     JSR    WAIT.RASTER
  108.     JSR    SCROLLY
  109.     JSR    VERTICAL.SCROLLER
  110.     JSR    MT_MUSIC
  111.     
  112.     BTST    #6,$BFE001
  113.     BNE.S    MAIN.BIT
  114.  
  115.     RTS
  116.  
  117. ;------------------------------------------------------------------
  118.  
  119. VERTICAL.SCROLLER:
  120.     LEA    $DFF000,A0
  121. VERT.BLIT:
  122.     BTST    #14,DMACONR(A0)
  123.     BNE.S    VERT.BLIT
  124.  
  125.     MOVE.L    #$FFFFFFFF,BLTAFWM(A0)
  126.     MOVE.W    #%0000100111110000,BLTCON0(A0)
  127.     CLR.W    BLTCON1(A0)
  128.     
  129.     MOVE.W    #0,BLTAMOD(A0)
  130.     MOVE.W    #0,BLTDMOD(A0)
  131.  
  132.     MOVE.L    #SPRITE1+4,BLTDPT(A0)
  133.     MOVE.L    #SPRITE1+8,BLTAPT(A0)
  134.  
  135.     MOVE.W    #%0100000000000010,BLTSIZE(A0)
  136.  
  137. VERT.BLIT2:
  138.     BTST    #14,DMACONR(A0)
  139.     BNE.S    VERT.BLIT2
  140.  
  141.     MOVE.L    #SPRITE2+4,BLTDPT(A0)
  142.     MOVE.L    #SPRITE2+8,BLTAPT(A0)
  143.  
  144.     MOVE.W    #%0100000000000010,BLTSIZE(A0)
  145.  
  146.     ADD.L    #40,CHAR.LINE
  147.     CMP.L    #40*32,CHAR.LINE
  148.     BNE    JUST.PLACE
  149.  
  150.     MOVE.L    #0,CHAR.LINE
  151.     ADD.L    #1,VERT.TEXT.POINTER
  152. RE.READ.TEXT:
  153.     MOVE.L    VERT.TEXT.POINTER,A2
  154.     CMP.B    #$FF,(A2)
  155.     BNE    NO.TEXT.RESTART
  156.  
  157.     MOVE.L    #LARGETEXT,VERT.TEXT.POINTER
  158.     JMP    RE.READ.TEXT
  159.  
  160. NO.TEXT.RESTART:
  161.     CLR.L    D0
  162.     MOVE.B    (A2),D0
  163.  
  164.     SUB.B    #$20,D0
  165.     CLR.L    D2
  166.     MOVE.B    D0,D2
  167.  
  168.     DIVU    #10,D2
  169.     MULU    #40*32,D2
  170.     MOVE.L    D2,A2
  171.  
  172.     ADD.L    #OTHERFONT,A2
  173.  
  174.     CLR.L    D3
  175.     MOVE.B    D0,D3
  176.  
  177.     DIVU    #10,D0
  178.     MULU    #10,D0
  179.  
  180.     SUB.W    D0,D3
  181.     MOVE.L    D3,D0
  182.     
  183.     MULU    #4,D0
  184.     ADD.L    D0,A2
  185.  
  186.     MOVE.L    A2,CHAR.ADDR
  187.  
  188. JUST.PLACE:
  189.     MOVE.L    CHAR.ADDR,A1
  190.     ADD.L    CHAR.LINE,A1
  191.     MOVE.W    (A1),SPRITE1+4+(256*4)
  192.     MOVE.W    2(A1),SPRITE2+4+(256*4)
  193.     ADD.L    #10240,A1
  194.     MOVE.W    (A1),SPRITE1+6+(256*4)
  195.     MOVE.W    2(A1),SPRITE2+6+(256*4)
  196.  
  197.     RTS
  198.  
  199. ;------------------------------------------------------------------
  200.  
  201. SCROLLY:
  202.     CLR.L    D0
  203. NEXT.SCROLLER:
  204.     MOVE.L    #DIRECTION,A0
  205.     ADD.L    D0,A0
  206.     CMP.L    #1,(A0)
  207.  
  208.     BEQ    BACKWARDS
  209.  
  210.     MOVE.L    #XSCR.TABLE,A0
  211.     ADD.L    D0,A0
  212.     MOVE.L    (A0),A0
  213.  
  214.     MOVE.L    #SCRSPEED.TABLE,A1
  215.     ADD.L    D0,A1
  216.  
  217.     MOVE.W    (A1),D1
  218.     SUB.W    D1,(A0)
  219.  
  220.     BTST    #15,(A0)
  221.     BEQ    NO.PROBLEM
  222.  
  223.     ADD.W    #16,(A0)
  224.  
  225.     MOVE.L    #XSCR.POINT.TABLE,A2
  226.     ADD.L    D0,A2
  227.     
  228.     ADD.L    #2,(A2)
  229.  
  230.     CMP.L    #52,(A2)
  231.     BNE    CHARACTER.CHECK
  232.  
  233.     MOVE.L    #4,(A2)
  234. CHARACTER.CHECK:
  235.     MOVE.L    #SCROLL.PLANE,D4
  236.  
  237.     MOVE.L    #SCROLL.LOCS,A5
  238.     ADD.L    D0,A5
  239.     ADD.L    (A5),D4
  240.  
  241.     MOVE.L    #XSCR.POINT.TABLE,A5
  242.     ADD.L    D0,A5
  243.     ADD.L    (A5),D4
  244.  
  245.     ADD.L    #4,D4
  246.  
  247.     MOVE.W    D4,8(A0)
  248.     SWAP    D4
  249.     MOVE.W    D4,4(A0)
  250.     SWAP    D4
  251.  
  252.     MOVE.L    (A2),D1
  253.     AND.L    #0,D1
  254.     CMP.L    #0,D1
  255.     BNE    NO.PROBLEM
  256.  
  257.     MOVE.L    #FONT,A5
  258.     JSR    DROP.CHAR
  259.     JMP    NO.PROBLEM
  260.  
  261. BACKWARDS:
  262.     MOVE.L    #XSCR.TABLE,A0
  263.     ADD.L    D0,A0
  264.     MOVE.L    (A0),A0
  265.  
  266.     MOVE.L    #SCRSPEED.TABLE,A1
  267.     ADD.L    D0,A1
  268.  
  269.     MOVE.W    (A1),D1
  270.     ADD.W    D1,(A0)
  271.  
  272.     MOVE.W    (A0),D2
  273.     AND.W    #$FFF0,D2
  274.     CMP.W    #0,D2
  275.     BEQ    NO.PROBLEM
  276.  
  277.     SUB.W    #16,(A0)
  278.  
  279.     MOVE.L    #XSCR.POINT.TABLE,A2
  280.     ADD.L    D0,A2
  281.     
  282.     SUB.L    #2,(A2)
  283.  
  284.     CMP.L    #-2,(A2)
  285.     BNE    CHARACTER.CHECK2
  286.  
  287.     MOVE.L    #46,(A2)
  288. CHARACTER.CHECK2:
  289.     MOVE.L    #SCROLL.PLANE,D4
  290.  
  291.     MOVE.L    #SCROLL.LOCS,A5
  292.     ADD.L    D0,A5
  293.     ADD.L    (A5),D4
  294.  
  295.     MOVE.L    #XSCR.POINT.TABLE,A5
  296.     ADD.L    D0,A5
  297.     ADD.L    (A5),D4
  298.  
  299.     ADD.L    #4,D4
  300.  
  301.     MOVE.W    D4,8(A0)
  302.     SWAP    D4
  303.     MOVE.W    D4,4(A0)
  304.     SWAP    D4
  305.  
  306.     MOVE.L    (A2),D1
  307.     AND.L    #0,D1
  308.     CMP.L    #0,D1
  309.     BNE.S    NO.PROBLEM
  310.  
  311.     MOVE.L    #FONT+40*40,A5
  312.     JSR    DROP.CHAR
  313.     JMP    NO.PROBLEM
  314.  
  315.  
  316. NO.PROBLEM:
  317.     ADD.L    #4,D0
  318.     CMP.L    #4*32,D0
  319.     BNE    NEXT.SCROLLER
  320.  
  321.     RTS
  322.  
  323. ;------------------------------------------------------------------
  324.  
  325. DROP.CHAR:
  326.     MOVE.L    #TEXTPOINTERS,A3
  327.     ADD.L    D0,A3
  328.     MOVE.L    (A3),A4
  329.  
  330.     CLR.L    D2
  331.     MOVE.B    (A4),D2
  332.     
  333.     CMP.B    #$FF,D2
  334.     BNE.S    NOT.SCROLL.RESET
  335.  
  336.     MOVE.L    #$20,D2
  337.     MOVE.L    #SCROLLTEXT-1,(A3)
  338. NOT.SCROLL.RESET:
  339.     CMP.L    #$0A,D2
  340.     BNE    NOT.RETURN
  341.  
  342.     MOVE.L    #$20,D2
  343. NOT.RETURN:
  344.     ADD.L    #1,(A3)
  345.     SUB.B    #32,D2    
  346.  
  347.     CLR.L    D3
  348.     MOVE.B    D2,D3    
  349.  
  350.     DIVU    #20,D3
  351.     MULU    #40*8,D3
  352.  
  353.     CLR.L    D4
  354.     MOVE.B    D2,D4
  355.     
  356.     DIVU    #20,D4
  357.     MULU    #20,D4
  358.     SUB.L    D4,D2
  359.  
  360.     MULU    #2,D2
  361.  
  362.     ADD.L    D2,D3
  363.  
  364.     ADD.L    D3,A5
  365.  
  366.     MOVE.L    #SCROLL.PLANE,D5
  367.  
  368.     MOVE.L    #SCROLL.LOCS,A4
  369.     ADD.L    D0,A4
  370.     ADD.L    (A4),D5
  371.  
  372.     MOVE.L    #XSCR.POINT.TABLE,A4
  373.     ADD.L    D0,A4
  374.     ADD.L    (A4),D5
  375.  
  376.     LEA    $DFF000,A6
  377. BLIT.WAIT:
  378.     BTST    #14,DMACONR(A6)
  379.     BNE.S    BLIT.WAIT
  380.  
  381.     MOVE.L    #$FFFFFFFF,BLTAFWM(A6)
  382.  
  383.     MOVE.L    A5,BLTAPT(A6)
  384.     MOVE.L    D5,BLTDPT(A6)
  385.     ;MOVE.L    #FONT+4,BLTAPT(A6)
  386.     ;MOVE.L    #SCROLL.PLANE+10,BLTDPT(A6)
  387.  
  388.     MOVE.W    #%0000100111110000,BLTCON0(A6)
  389.     MOVE.W    #0,BLTCON1(A6)
  390.  
  391.     MOVE.W    #40-2,BLTAMOD(A6)
  392.     MOVE.W    #94-2,BLTDMOD(A6)
  393.  
  394.     MOVE.W    #%0000001000000001,BLTSIZE(A6)
  395.  
  396.     ADD.L    #48,D5
  397. BLIT.WAIT1:
  398.     BTST    #14,DMACONR(A6)
  399.     BNE.S    BLIT.WAIT1
  400.  
  401.     MOVE.L    #$FFFFFFFF,BLTAFWM(A6)
  402.  
  403.     MOVE.L    A5,BLTAPT(A6)
  404.     MOVE.L    D5,BLTDPT(A6)
  405.     ;MOVE.L    #FONT+4,BLTAPT(A6)
  406.     ;MOVE.L    #SCROLL.PLANE+10,BLTDPT(A6)
  407.  
  408.     MOVE.W    #%0000100111110000,BLTCON0(A6)
  409.     MOVE.W    #0,BLTCON1(A6)
  410.  
  411.     MOVE.W    #40-2,BLTAMOD(A6)
  412.     MOVE.W    #94-2,BLTDMOD(A6)
  413.  
  414.     MOVE.W    #%0000001000000001,BLTSIZE(A6)
  415.  
  416.     RTS
  417.  
  418. ;------------------------------------------------------------------
  419.  
  420. WAIT.RASTER:
  421.     ;MOVE.W    #$000,$DFF180
  422.  
  423.     MOVE.W    $DFF006,D0
  424.     AND.W    #$FF00,D0
  425.     CMP.W    #$FF00,D0
  426.     BNE.S    WAIT.RASTER
  427. WAIT.RASTER2:
  428.     ;MOVE.W    $DFF006,D0
  429.     ;AND.W    #$FF00,D0
  430.     ;CMP.W    #$1000,D0
  431.     ;BNE.S    WAIT.RASTER2
  432.  
  433.     ;MOVE.W    #$888,$DFF180
  434.     RTS
  435.     
  436. ;------------------------------------------------------------------
  437.  
  438.     EVEN
  439. MT_DATA:    INCBIN    "MOD.harleymusic"
  440.     EVEN
  441.         
  442.     EVEN
  443.         DCB.B    16*44,$0
  444. PICCY:        INCBIN    "CALVIN.FRIGHT.RAW"
  445. FONT:        INCBIN    "SMALL.FONT.RAW"
  446. OTHERFONT:    INCBIN    "PARADROIDFONT.RAW"
  447. SCROLL.PLANE:    DCB.B    (48*3)*256,$0
  448. BLANK.PLANE:    DCB.B    (48*256)*2,$0
  449.  
  450. ;------------------------------------------------------------------
  451.  
  452.     EVEN
  453. GFXPOINTER:    DC.B    "graphics.library",0
  454. SCROLLTEXT:    INCBIN    "Calvin.Intro.Text"
  455.         DC.B    $FF
  456. LARGETEXT:    INCBIN    "Calvin.Large.Text"
  457.         DC.B    $FF
  458.  
  459. ;------------------------------------------------------------------
  460.  
  461.     EVEN
  462. OLD.CLIST:        DC.L    0
  463. CHAR.LINE:        DC.L    0
  464. CHAR.ADDR:        DC.L    0
  465. VERT.TEXT.POINTER:    DC.L    LARGETEXT
  466.  
  467. ;------------------------------------------------------------------
  468.  
  469.     EVEN
  470. SCROLL.LOCS:        DC.L    (48*16)*0,(48*16)*1,(48*16)*2,(48*16)*3,(48*16)*4,(48*16)*5,(48*16)*6,(48*16)*7,(48*16)*8,(48*16)*9,(48*16)*10,(48*16)*11,(48*16)*12,(48*16)*13,(48*16)*14,(48*16)*15
  471.             DC.L    (48*16)*16,(48*16)*17,(48*16)*18,(48*16)*19,(48*16)*20,(48*16)*21,(48*16)*22,(48*16)*23,(48*16)*24,(48*16)*25,(48*16)*26,(48*16)*27,(48*16)*28,(48*16)*29,(48*16)*30,(48*16)*31
  472. XSCR.POINT.TABLE:    DC.L    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  473. XSCR.TABLE:        DC.L    XSCR1,XSCR2,XSCR3,XSCR4,XSCR5,XSCR6,XSCR7,XSCR8,XSCR9,XSCR10,XSCR11,XSCR12,XSCR13,XSCR14,XSCR15,XSCR16
  474.             DC.L    XSCR17,XSCR18,XSCR19,XSCR20,XSCR21,XSCR22,XSCR23,XSCR24,XSCR25,XSCR26,XSCR27,XSCR28,XSCR29,XSCR30,XSCR31,XSCR32
  475. TEXTPOINTERS:        DC.L    SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT
  476.             DC.L    SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT,SCROLLTEXT
  477. SCRSPEED.TABLE:        DC.W    9,0,8,0,7,0,6,0,5,0,4,0,3,0,2,0,1,0,2,0,3,0,4,0,5,0,6,0,7,0,8,0,9,0,8,0,7,0
  478.             DC.W    6,0,5,0,4,0,3,0,2,0,1,0,2,0,3,0,4,0,6,0,7,0,8,0,9,0,8,0,7,0,6,0,5,0,4,0
  479. DIRECTION:        DC.L    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  480.             DC.L    1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  481.  
  482. ;------------------------------------------------------------------
  483.  
  484.     EVEN
  485. CLIST:
  486.     DC.W    $0120,$0000,$0122,$0000,$0124,$0000,$0126,$0000,$0128,$0000,$012A,$0000,$012C,$0000,$012E,$0000
  487.     DC.W    $0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000,$0138,$0000,$013A,$0000,$013C,$0000,$013E,$0000
  488.  
  489. COLS:    DC.W    $0190,$0444,$0182,$0444,$0184,$0444,$0186,$0444,$0188,$0444,$018A,$0444,$018C,$0444,$018E,$0444
  490.     DC.W    $0180,$0444,$0192,$0444,$0194,$0444,$0196,$0444,$0198,$0444,$019A,$0444,$019C,$0444,$019E,$0444
  491.  
  492.     DC.W    $01A0,$0444,$01A2,$0FFF,$01A4,$0444,$01A6,$0444,$01A8,$0444,$01AA,$0444,$01AC,$0444,$01AE,$0444
  493.     DC.W    $01B0,$0444,$01B2,$0444,$01B4,$0444,$01B6,$0444,$01B8,$0444,$01BA,$0444,$01BC,$0444,$01BE,$0444
  494.  
  495.     DC.W    DIWSTRT,$2871,DIWSTOP,$2CC1,DDFSTRT,$28,DDFSTOP,$FF
  496.  
  497.     DC.W    $108,48,$10A,-2,$180,$AAA
  498.  
  499.     DC.W    SPRPT
  500. SPR1H:    DC.W    0,SPRPT+2
  501. SPR1L:    DC.W    0,SPRPT+4
  502. SPR2H:    DC.W    0,SPRPT+6
  503. SPR2L:    DC.W    0
  504.     
  505.     DC.W    BPLCON2,9,BPLCON0,$0200,BPLCON1
  506.     DC.W    0
  507.  
  508.     DC.W    BPLPT
  509. PL1H:    DC.W    0,BPLPT+2
  510. PL1L:    DC.W    0,BPLPT+4
  511. PL2H:    DC.W    0,BPLPT+6
  512. PL2L:    DC.W    0,BPLPT+8
  513. PL3H:    DC.W    0,BPLPT+10
  514. PL3L:    DC.W    0,BPLPT+12
  515. PL4H:    DC.W    0,BPLPT+14
  516. PL4L:    DC.W    0,BPLPT+16
  517. PL5H:    DC.W    0,BPLPT+18
  518. PL5L:    DC.W    0,BPLPT+20
  519. PL6H:    DC.W    0,BPLPT+22
  520. PL6L:    DC.W    0
  521.  
  522.     DC.W    $2809,$FFFE,BPLCON2,$41,BPLCON0,$6600,BPLCON1
  523. XSCR1:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$FFF,$180,$999
  524.     DC.W    $3009,$FFFE,BPLCON1
  525. XSCR2:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$EEE,$180,$888
  526.     DC.W    $3809,$FFFE,BPLCON1
  527. XSCR3:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$DDD,$180,$777
  528.     DC.W    $4009,$FFFE,BPLCON1
  529. XSCR4:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$CCC,$180,$666
  530.     DC.W    $4809,$FFFE,BPLCON1
  531. XSCR5:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$BBB,$180,$555
  532.     DC.W    $5009,$FFFE,BPLCON1
  533. XSCR6:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$AAA,$180,$444
  534.     DC.W    $5809,$FFFE,BPLCON1
  535. XSCR7:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$999,$180,$333
  536.     DC.W    $6009,$FFFE,BPLCON1
  537. XSCR8:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$888,$180,$222
  538.     DC.W    $6809,$FFFE,BPLCON1
  539. XSCR9:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$999,$180,$333
  540.     DC.W    $7009,$FFFE,BPLCON1
  541. XSCR10:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$AAA,$180,$444
  542.     DC.W    $7809,$FFFE,BPLCON1
  543. XSCR11:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$BBB,$180,$555
  544.     DC.W    $8009,$FFFE,BPLCON1
  545. XSCR12:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$CCC,$180,$666
  546.     DC.W    $8809,$FFFE,BPLCON1
  547. XSCR13:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$DDD,$180,$777
  548.     DC.W    $9009,$FFFE,BPLCON1
  549. XSCR14:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$EEE,$180,$888
  550.     DC.W    $9809,$FFFE,BPLCON1
  551. XSCR15:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$EEE,$180,$888
  552.     DC.W    $A009,$FFFE,BPLCON1
  553. XSCR16:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$DDD,$180,$777
  554.     DC.W    $A809,$FFFE,BPLCON1
  555. XSCR17:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$CCC,$180,$666
  556.     DC.W    $B009,$FFFE,BPLCON1
  557. XSCR18:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$BBB,$180,$555
  558.     DC.W    $B809,$FFFE,BPLCON1
  559. XSCR19:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$AAA,$180,$444
  560.     DC.W    $C009,$FFFE,BPLCON1
  561. XSCR20:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$999,$180,$333
  562.     DC.W    $C809,$FFFE,BPLCON1
  563. XSCR21:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$888,$180,$222
  564.     DC.W    $D009,$FFFE,BPLCON1
  565. XSCR22:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$999,$180,$333
  566.     DC.W    $D809,$FFFE,BPLCON1
  567. XSCR23:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$AAA,$180,$444
  568.     DC.W    $E009,$FFFE,BPLCON1
  569. XSCR24:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$BBB,$180,$555
  570.     DC.W    $E809,$FFFE,BPLCON1
  571. XSCR25:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$CCC,$180,$666
  572.     DC.W    $F009,$FFFE,BPLCON1
  573. XSCR26:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$DDD,$180,$777
  574.     DC.W    $F809,$FFFE,BPLCON1
  575. XSCR27:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$EEE,$180,$888
  576.  
  577.     DC.W    $FF09,$FFFE,$FFDD,$FFFE,$0009,$FFFE
  578.  
  579.     DC.W    BPLCON1
  580. XSCR28:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$FFF,$180,$999
  581.     DC.W    $0809,$FFFE,BPLCON1
  582. XSCR29:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$EEE,$180,$888
  583.     DC.W    $1009,$FFFE,BPLCON1
  584. XSCR30:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$DDD,$180,$777
  585.     DC.W    $1809,$FFFE,BPLCON1
  586. XSCR31:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$CCC,$180,$666
  587.     DC.W    $2009,$FFFE,BPLCON1
  588. XSCR32:    DC.W    0,BPLPT+0,$0,BPLPT+2,$0,$182,$BBB,$180,$555
  589.     DC.W    $2809,$FFFE,BPLCON0,$0200
  590.  
  591.     DC.W    $FFFF,$FFFE
  592.  
  593. ;-----------------------------------------------------------------
  594.  
  595. SPRITE1:
  596.     DC.W    $283C,$FF02
  597.     REPT    512
  598.     DC.W    $0000,$0000
  599.     ENDR
  600.     DC.W    $0000,$0000
  601. SPRITE2:
  602.     DC.W    $2844,$FF02
  603.     REPT    512
  604.     DC.W    $0000,$0000
  605.     ENDR
  606.     DC.W    $0000,$0000
  607.  
  608.  
  609.  
  610.  
  611.